/ Developer CD Series 1990 September: Essentials 4 / ADC Developer CD (1990-09) [Essentials 4]_iso / Developer Essentials 4.iso / d e v e l o p / develop 1 code / Offscreen / FracApp 2.0B3 / MFracApp.p

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 4d 46 72 61 63 41 | 70 70 2e 70 00 00 00 00 |..MFracA|pp.p....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 06 f3 00 | 00 01 a0 a0 c3 2e f0 a0 |........|........|
|00000060| c3 2e f0 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 45 6b 00 00 |........|....Ek..|
|00000080| 7b 41 75 74 6f 46 72 61 | 63 41 70 70 20 43 6f 6c |{AutoFra|cApp Col|
|00000090| 6f 72 3a 0d 09 63 6f 70 | 79 72 69 67 68 74 20 31 |or:..cop|yright 1|
|000000a0| 39 38 38 20 62 79 20 42 | 6f 62 2e 20 20 41 6c 6c |988 by B|ob.  All|
|000000b0| 20 72 69 67 68 74 73 20 | 72 65 73 65 72 76 65 64 | rights |reserved|
|000000c0| 2e 0d 09 46 65 62 72 75 | 61 72 79 20 31 2c 20 31 |...Febru|ary 1, 1|
|000000d0| 39 38 38 2e 20 0d 09 57 | 72 69 74 74 65 6e 20 62 |988. ..W|ritten b|
|000000e0| 79 20 42 6f 33 62 20 4a | 6f 68 6e 73 6f 6e 20 6f |y Bo3b J|ohnson o|
|000000f0| 66 20 44 65 76 65 6c 6f | 70 65 72 20 54 65 63 68 |f Develo|per Tech|
|00000100| 6e 69 63 61 6c 20 53 75 | 70 70 6f 72 74 2e 20 7d |nical Su|pport. }|
|00000110| 0d 0d 50 52 4f 47 52 41 | 4d 20 46 72 61 63 41 70 |..PROGRA|M FracAp|
|00000120| 70 3b 0d 0d 09 7b 20 53 | 74 72 61 6e 67 65 20 62 |p;...{ S|trange b|
|00000130| 75 74 20 74 72 75 65 2c | 20 79 6f 75 20 63 61 6e |ut true,| you can|
|00000140| 6e 6f 74 20 63 6f 6d 70 | 69 6c 65 20 74 68 69 73 |not comp|ile this|
|00000150| 20 66 69 6c 65 20 77 69 | 74 68 20 74 68 65 20 38 | file wi|th the 8|
|00000160| 38 31 20 66 6c 61 67 20 | 74 75 72 6e 65 64 20 6f |81 flag |turned o|
|00000170| 6e 2c 0d 09 09 6f 72 20 | 79 6f 75 20 77 69 6c 6c |n,...or |you will|
|00000180| 20 6e 6f 74 20 62 65 20 | 61 62 6c 65 20 74 6f 20 | not be |able to |
|00000190| 74 65 73 74 20 66 6f 72 | 20 61 6e 20 38 38 31 20 |test for| an 881 |
|000001a0| 69 6e 20 74 68 65 20 65 | 6e 76 69 72 6f 6e 6d 65 |in the e|nvironme|
|000001b0| 6e 74 20 62 65 66 6f 72 | 65 20 79 6f 75 0d 09 09 |nt befor|e you...|
|000001c0| 63 72 61 73 68 2c 20 6d | 61 6b 69 6e 67 20 69 74 |crash, m|aking it|
|000001d0| 20 75 6e 61 63 63 65 70 | 74 61 62 6c 65 20 66 6f | unaccep|table fo|
|000001e0| 72 20 6f 6c 64 65 72 20 | 6d 61 63 68 69 6e 65 73 |r older |machines|
|000001f0| 2e 20 20 7d 0d 20 20 7b | 24 4d 43 36 38 30 32 30 |.  }.  {|$MC68020|
|00000200| 2d 7d 09 09 09 09 09 09 | 09 09 09 7b 20 54 68 65 |-}......|...{ The|
|00000210| 20 6d 61 69 6e 20 70 72 | 6f 67 72 61 6d 20 6d 75 | main pr|ogram mu|
|00000220| 73 74 20 62 65 20 75 6e | 69 76 65 72 73 61 6c 20 |st be un|iversal |
|00000230| 63 6f 64 65 20 7d 0d 20 | 20 7b 24 4d 43 36 38 38 |code }. | {$MC688|
|00000240| 38 31 2d 7d 0d 0d 55 53 | 45 53 0d 09 7b 24 4c 4f |81-}..US|ES..{$LO|
|00000250| 41 44 20 4d 61 63 49 6e | 74 66 2e 4c 4f 41 44 7d |AD MacIn|tf.LOAD}|
|00000260| 0d 09 09 4d 65 6d 54 79 | 70 65 73 2c 20 51 75 69 |...MemTy|pes, Qui|
|00000270| 63 6b 44 72 61 77 2c 20 | 4f 53 49 6e 74 66 2c 20 |ckDraw, |OSIntf, |
|00000280| 54 6f 6f 6c 49 6e 74 66 | 2c 20 50 61 63 6b 49 6e |ToolIntf|, PackIn|
|00000290| 74 66 2c 0d 09 7b 24 4c | 4f 41 44 20 55 4d 61 63 |tf,..{$L|OAD UMac|
|000002a0| 41 70 70 2e 4c 4f 41 44 | 7d 0d 09 09 55 4d 61 63 |App.LOAD|}...UMac|
|000002b0| 41 70 70 55 74 69 6c 69 | 74 69 65 73 2c 20 55 56 |AppUtili|ties, UV|
|000002c0| 69 65 77 43 6f 6f 72 64 | 73 2c 20 55 46 61 69 6c |iewCoord|s, UFail|
|000002d0| 75 72 65 2c 20 55 4d 65 | 6d 6f 72 79 2c 20 55 4d |ure, UMe|mory, UM|
|000002e0| 65 6e 75 53 65 74 75 70 | 2c 20 55 4f 62 6a 65 63 |enuSetup|, UObjec|
|000002f0| 74 2c 0d 09 09 55 4c 69 | 73 74 2c 20 55 41 73 73 |t,...ULi|st, UAss|
|00000300| 6f 63 69 61 74 69 6f 6e | 2c 20 55 4d 61 63 41 70 |ociation|, UMacAp|
|00000310| 70 2c 0d 09 7b 24 4c 4f | 41 44 20 55 42 6f 62 4c |p,..{$LO|AD UBobL|
|00000320| 69 70 73 2e 4c 4f 41 44 | 7d 0d 09 09 50 61 6c 65 |ips.LOAD|}...Pale|
|00000330| 74 74 65 4d 67 72 2c 20 | 55 50 72 69 6e 74 69 6e |tteMgr, |UPrintin|
|00000340| 67 2c 0d 09 7b 24 4c 4f | 41 44 7d 0d 0d 09 55 46 |g,..{$LO|AD}...UF|
|00000350| 72 61 63 41 70 70 3b 0d | 0d 0d 56 41 52 0d 09 09 |racApp;.|..VAR...|
|00000360| 7b 54 68 65 20 61 70 70 | 6c 69 63 61 74 69 6f 6e |{The app|lication|
|00000370| 20 6f 62 6a 65 63 74 3a | 7d 0d 09 67 46 72 61 63 | object:|}..gFrac|
|00000380| 41 70 70 41 70 70 6c 69 | 63 61 74 69 6f 6e 3a 20 |AppAppli|cation: |
|00000390| 20 20 54 46 72 61 63 41 | 70 70 41 70 70 6c 69 63 |  TFracA|ppApplic|
|000003a0| 61 74 69 6f 6e 3b 0d 09 | 0d 09 0d 7b 24 53 20 4d |ation;..|...{$S M|
|000003b0| 61 69 6e 7d 0d 0d 42 45 | 47 49 4e 0d 09 49 6e 69 |ain}..BE|GIN..Ini|
|000003c0| 74 54 6f 6f 6c 62 6f 78 | 3b 09 09 09 7b 20 53 6f |tToolbox|;...{ So|
|000003d0| 20 77 65 20 63 61 6e 20 | 70 75 74 20 75 70 20 61 | we can |put up a|
|000003e0| 6e 20 61 6c 65 72 74 20 | 69 66 20 6e 65 65 64 65 |n alert |if neede|
|000003f0| 64 2e 20 7d 0d 09 09 0d | 09 09 7b 20 54 68 69 73 |d. }....|..{ This|
|00000400| 20 56 61 6c 69 64 61 74 | 65 43 6f 6e 66 69 67 75 | Validat|eConfigu|
|00000410| 72 61 74 69 6f 6e 20 72 | 6f 75 74 69 6e 65 20 69 |ration r|outine i|
|00000420| 73 20 61 75 74 6f 6d 61 | 74 69 63 2e 20 20 49 74 |s automa|tic.  It|
|00000430| 20 74 61 6b 65 73 20 74 | 68 65 20 63 6f 6d 70 69 | takes t|he compi|
|00000440| 6c 65 20 74 69 6d 65 0d | 09 09 09 6f 70 74 69 6f |le time.|...optio|
|00000450| 6e 73 20 73 70 65 63 69 | 66 69 65 64 20 61 6e 64 |ns speci|fied and|
|00000460| 20 74 75 72 6e 73 20 74 | 68 65 6d 20 69 6e 74 6f | turns t|hem into|
|00000470| 20 61 20 6c 69 73 74 20 | 6f 66 20 74 65 73 74 73 | a list |of tests|
|00000480| 20 74 6f 20 6d 61 6b 65 | 20 61 67 61 69 6e 73 74 | to make| against|
|00000490| 20 74 68 65 0d 09 09 09 | 63 75 72 72 65 6e 74 20 | the....|current |
|000004a0| 73 79 73 65 6e 76 69 72 | 6f 6e 73 20 72 65 63 6f |sysenvir|ons reco|
|000004b0| 72 64 2e 20 20 49 66 20 | 61 6e 79 20 74 65 73 74 |rd.  If |any test|
|000004c0| 20 63 6f 6d 70 69 6c 65 | 64 20 69 6e 20 66 61 69 | compile|d in fai|
|000004d0| 6c 73 2c 20 77 65 20 63 | 61 6e 27 74 20 72 75 6e |ls, we c|an't run|
|000004e0| 2e 20 49 6e 0d 09 09 09 | 74 68 69 73 20 63 61 73 |. In....|this cas|
|000004f0| 65 2c 20 77 65 20 6f 6e | 6c 79 20 63 61 72 65 20 |e, we on|ly care |
|00000500| 61 62 6f 75 74 20 74 68 | 65 20 46 50 55 2e 20 7d |about th|e FPU. }|
|00000510| 0d 09 49 46 20 56 61 6c | 69 64 61 74 65 43 6f 6e |..IF Val|idateCon|
|00000520| 66 69 67 75 72 61 74 69 | 6f 6e 28 67 43 6f 6e 66 |figurati|on(gConf|
|00000530| 69 67 75 72 61 74 69 6f | 6e 29 20 54 48 45 4e 0d |iguratio|n) THEN.|
|00000540| 09 09 42 45 47 49 4e 0d | 09 09 7b 20 43 6f 6e 74 |..BEGIN.|..{ Cont|
|00000550| 69 6e 75 65 20 77 69 74 | 68 20 72 65 6d 61 69 6e |inue wit|h remain|
|00000560| 64 65 72 20 6f 66 20 69 | 6e 69 74 69 61 6c 69 7a |der of i|nitializ|
|00000570| 61 74 69 6f 6e 20 7d 0d | 09 09 49 6e 69 74 55 4d |ation }.|..InitUM|
|00000580| 61 63 41 70 70 28 31 30 | 29 3b 09 09 09 09 09 09 |acApp(10|);......|
|00000590| 09 09 7b 20 49 6e 69 74 | 69 61 6c 69 7a 65 20 4d |..{ Init|ialize M|
|000005a0| 61 63 41 70 70 3b 20 31 | 30 20 63 61 6c 6c 73 20 |acApp; 1|0 calls |
|000005b0| 74 6f 20 4d 6f 72 65 4d | 61 73 74 65 72 73 20 7d |to MoreM|asters }|
|000005c0| 0d 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 0d |........|........|
|000005d0| 09 09 49 6e 69 74 55 50 | 72 69 6e 74 69 6e 67 3b |..InitUP|rinting;|
|000005e0| 09 09 09 09 09 09 09 09 | 09 7b 20 49 6e 69 74 69 |........|.{ Initi|
|000005f0| 61 6c 69 7a 65 20 74 68 | 65 20 70 72 69 6e 74 69 |alize th|e printi|
|00000600| 6e 67 20 75 6e 69 74 7d | 0d 0d 09 09 7b 41 6c 6c |ng unit}|....{All|
|00000610| 6f 63 61 74 65 20 61 20 | 6e 65 77 20 54 46 72 61 |ocate a |new TFra|
|00000620| 63 41 70 70 41 70 70 6c | 69 63 61 74 69 6f 6e 20 |cAppAppl|ication |
|00000630| 6f 62 6a 65 63 74 3a 7d | 0d 09 09 4e 45 57 28 67 |object:}|...NEW(g|
|00000640| 46 72 61 63 41 70 70 41 | 70 70 6c 69 63 61 74 69 |FracAppA|pplicati|
|00000650| 6f 6e 29 3b 0d 09 09 46 | 61 69 6c 4e 69 6c 28 67 |on);...F|ailNil(g|
|00000660| 46 72 61 63 41 70 70 41 | 70 70 6c 69 63 61 74 69 |FracAppA|pplicati|
|00000670| 6f 6e 29 3b 0d 09 0d 09 | 09 7b 49 6e 69 74 69 61 |on);....|.{Initia|
|00000680| 6c 69 7a 65 20 74 68 61 | 74 20 6e 65 77 20 6f 62 |lize tha|t new ob|
|00000690| 6a 65 63 74 3a 7d 0d 09 | 09 67 46 72 61 63 41 70 |ject:}..|.gFracAp|
|000006a0| 70 41 70 70 6c 69 63 61 | 74 69 6f 6e 2e 49 46 72 |pApplica|tion.IFr|
|000006b0| 61 63 41 70 70 41 70 70 | 6c 69 63 61 74 69 6f 6e |acAppApp|lication|
|000006c0| 28 6b 46 69 6c 65 54 79 | 70 65 29 3b 0d 0d 09 09 |(kFileTy|pe);....|
|000006d0| 7b 52 75 6e 20 74 68 65 | 20 61 70 70 6c 69 63 61 |{Run the| applica|
|000006e0| 74 69 6f 6e 2e 20 20 57 | 68 65 6e 20 69 74 27 73 |tion.  W|hen it's|
|000006f0| 20 64 6f 6e 65 2c 20 65 | 78 69 74 2e 7d 0d 09 09 | done, e|xit.}...|
|00000700| 67 46 72 61 63 41 70 70 | 41 70 70 6c 69 63 61 74 |gFracApp|Applicat|
|00000710| 69 6f 6e 2e 52 75 6e 3b | 0d 0d 09 09 45 4e 44 0d |ion.Run;|....END.|
|00000720| 09 45 4c 53 45 0d 09 09 | 53 74 64 41 6c 65 72 74 |.ELSE...|StdAlert|
|00000730| 28 70 68 55 6e 73 75 70 | 70 6f 72 74 65 64 43 6f |(phUnsup|portedCo|
|00000740| 6e 66 69 67 75 72 61 74 | 69 6f 6e 29 3b 09 09 09 |nfigurat|ion);...|
|00000750| 7b 20 49 6e 66 6f 72 6d | 20 75 73 65 72 20 77 65 |{ Inform| user we|
|00000760| 20 63 61 6e 27 74 20 72 | 75 6e 2e 20 7d 0d 45 4e | can't r|un. }.EN|
|00000770| 44 2e 0d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |D.......|........|
|00000780| 00 00 01 00 00 00 01 62 | 00 00 00 62 00 00 00 3e |.......b|...b...>|
|00000790| 69 6f 6e 2e 49 41 70 70 | 6c 69 63 61 74 69 6f 6e |ion.IApp|lication|
|000007a0| 28 6b 46 69 6c 65 54 79 | 70 65 29 3b 20 20 20 20 |(kFileTy|pe);    |
|000007b0| 0a 4d 46 72 61 63 41 70 | 70 2e 70 63 02 00 00 00 |.MFracAp|p.pc....|
|000007c0| 54 45 58 54 4d 50 53 20 | 01 00 00 00 00 00 00 00 |TEXTMPS |........|
|000007d0| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 00 00 00 |..TEXTMP|S ......|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007f0| 00 00 9c c4 e4 50 00 00 | 06 f3 00 00 01 a0 6c 69 |.....P..|......li|
|00000800| 63 61 74 69 6f 6e 7d 0d | 45 4e 44 2e 0d 28 67 4e |cation}.|END..(gN|
|00000810| 6f 74 68 69 6e 67 41 70 | 70 6c 69 63 61 74 69 6f |othingAp|plicatio|
|00000820| 6e 29 3b 09 09 09 09 09 | 20 20 20 20 7b 41 6c 6c |n);.....|    {All|
|00000830| 6f 63 61 74 65 20 74 68 | 65 20 41 70 70 6c 69 63 |ocate th|e Applic|
|00000840| 61 74 69 6f 6e 20 6f 62 | 6a 65 63 74 7d 0d 20 20 |ation ob|ject}.  |
|00000850| 20 20 67 4e 6f 74 68 69 | 6e 67 41 70 70 6c 69 63 |  gNothi|ngApplic|
|00000860| 61 74 69 6f 6e 2e 49 41 | 70 70 6c 69 63 61 74 69 |ation.IA|pplicati|
|00000870| 6f 6e 28 6b 46 69 6c 65 | 54 79 70 65 29 3b 20 20 |on(kFile|Type);  |
|00000880| 00 00 00 48 00 0c 47 65 | 6e 65 76 61 00 63 61 00 |...H..Ge|neva.ca.|
|00000890| 00 00 00 01 cf 1a 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|000008a0| 00 00 00 00 00 00 00 04 | 00 04 00 3c 00 24 03 63 |........|...<.$.c|
|000008b0| 04 3d 00 3c 00 24 03 63 | 04 3d a0 c2 e8 a0 00 00 |.=.<.$.c|.=......|
|000008c0| 04 95 00 00 04 aa 00 00 | 06 4e 01 00 00 00 00 12 |........|.N......|
|000008d0| 00 01 00 00 00 9a 00 00 | 00 a1 07 46 72 61 63 41 |........|...FracA|
|000008e0| 70 70 00 00 01 00 00 00 | 01 62 00 00 00 62 00 00 |pp......|.b...b..|
|000008f0| 00 3e 00 29 ac 7c 04 6a | 00 00 00 1c 00 3e 00 00 |.>.).|.j|.....>..|
|00000900| 4d 50 53 52 00 01 00 0a | 03 ed ff ff 00 00 00 00 |MPSR....|........|
|00000910| 00 00 00 00 03 ef ff ff | 00 00 00 4c 00 2b 42 18 |........|...L.+B.|
|00000920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+